home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / cheesesauce / objectmoveb < prev    next >
Text File  |  1997-11-28  |  29KB  |  2,107 lines
  1. extlen: dc.w 0
  2. awayfromwall: dc.w 0
  3. wallbounce: dc.w 0
  4. wallxsize: dc.w 0
  5. wallzsize: dc.w 0
  6. walllength: dc.w 0
  7.  
  8. RoomPath: ds.w 100
  9. RoomPathPtr: dc.l 0
  10.  
  11. MoveObject:
  12.  
  13.  move.l #RoomPath,RoomPathPtr
  14.  
  15.  clr.b hitwall
  16.  
  17.  move.w newx,d0
  18.  sub.w oldx,d0
  19.  move.w d0,xdiff
  20.  move.w newz,d0
  21.  sub.w oldz,d0
  22.  move.w d0,zdiff
  23.  
  24.  move.l newy,wallhitheight
  25.  move.l objroom,a0
  26.  
  27. gobackanddoitallagain:
  28.  
  29.  move.l a0,a5
  30.  adda.w ToExitList(a5),a0
  31.  move.l a0,test
  32.  move.l FloorLines,a1
  33. checkwalls:
  34.  move.w (a0)+,d0
  35.  blt nomorewalls
  36.  
  37.  asl.w #4,d0
  38.  lea (a1,d0.w),a2
  39.  
  40. *********************************
  41. * Check if we are within exit limits
  42. * of zone.
  43. *********************************
  44.  
  45.  move.l #-65536*256,d0
  46.  move.l d0,LowerRoofHeight
  47.  move.l d0,UpperRoofHeight
  48.  move.l d0,LowerFloorHeight
  49.  move.l d0,UpperFloorHeight
  50.  
  51. ; tst.b 9(a2)
  52. ; bne thisisawall2
  53.  
  54.  moveq #0,d1
  55.  move.w 8(a2),d1
  56.  blt thisisawall2
  57.  move.l ZoneAdds,a4
  58.  move.l (a4,d1.w*4),a4
  59.  add.l LEVELDATA,a4
  60.  
  61.  move.l ToZoneFloor(a4),d1
  62.  move.l d1,LowerFloorHeight
  63.  move.l ToZoneRoof(a4),d2
  64.  move.l d2,LowerRoofHeight
  65.  sub.l d2,d1
  66.  cmp.l thingheight,d1
  67.  ble thisisawall1
  68.  
  69.  move.l oldy,d0
  70.  move.l d0,d1
  71.  add.l thingheight,d1
  72.  sub.l ToZoneFloor(a4),d1
  73.  bgt.s chkstepup
  74.  
  75.  neg.l d1
  76.  cmp.l StepDownVal,d1
  77.  blt.s botinsidebot
  78.  
  79. chkstepup:
  80.  cmp.l StepUpVal,d1
  81.  blt.s botinsidebot
  82.  
  83. ; We have a wall!
  84.  bra thisisawall1
  85.  
  86. botinsidebot:
  87.  
  88.  sub.l ToZoneRoof(a4),d0
  89.  blt.s thisisawall1
  90.  
  91.  bra checkwalls
  92.  
  93. thisisawall1:
  94.  
  95.  move.l ToUpperFloor(a4),d1
  96.  move.l d1,UpperFloorHeight
  97.  move.l ToUpperRoof(a4),d2
  98.  sub.l d2,d1
  99.  move.l d2,UpperRoofHeight
  100.  cmp.l thingheight,d1
  101.  ble thisisawall2
  102.  
  103.  move.l oldy,d0
  104.  move.l d0,d1
  105.  add.l thingheight,d1
  106.  sub.l ToUpperFloor(a4),d1
  107.  bgt.s chkstepup2
  108.  
  109.  neg.l d1
  110.  cmp.l StepDownVal,d1
  111.  blt.s botinsidebot2
  112.  bra.s thisisawall2
  113.  
  114. chkstepup2:
  115.  cmp.l StepUpVal,d1
  116.  blt.s botinsidebot2
  117.  
  118. ; We have a wall!
  119.  bra thisisawall2
  120.  
  121. botinsidebot2:
  122.  
  123.  sub.l ToUpperRoof(a4),d0
  124.  blt.s thisisawall2
  125.  
  126.  bra checkwalls
  127. thisisawall2
  128.  
  129.  move.l #0,a4
  130.  move.l #0,a6
  131.  move.b awayfromwall,d3
  132.  blt.s .notomatoes
  133.  
  134.  move.b 12(a2),d2
  135.  ext.w d2
  136.  
  137.  move.b 13(a2),d4
  138.  ext.w d4
  139.  
  140.  tst.b d3
  141.  beq.s .noshift
  142.  asl.w d3,d2
  143.  asl.w d3,d4
  144. .noshift
  145.  
  146.  move.w d2,a4
  147.  move.w d4,a6
  148.  
  149. .notomatoes:
  150.  
  151.  move.w newx,d0
  152.  move.w newz,d1
  153.  sub.w (a2),d0
  154.  sub.w 2(a2),d1
  155.  sub.w a4,d0
  156.  sub.w a6,d1
  157.  
  158.  move.w 4(a2),d2
  159.  sub.w a4,d2
  160.  sub.w a6,d2
  161.  
  162.  muls d2,d1
  163.  
  164.  move.w 6(a2),d5
  165.  add.w a4,d5
  166.  sub.w a6,d5
  167.  
  168.  muls d5,d0
  169.  sub.l d1,d0
  170.  blt chkhttt
  171.  
  172.  move.w 10(a2),d3
  173.  add.w extlen,d3
  174.  divs d3,d0
  175.  cmp.w #32,d0
  176.  bge oknothitwall
  177.  
  178.  move.w wallflags(pc),d0
  179.  or.w d0,14(a2) 
  180.  
  181.  bra oknothitwall
  182.  
  183. chkhttt:
  184.  
  185.  move.w d2,WALLXLEN
  186.  move.w d5,WALLZLEN
  187.  
  188.  move.l d0,d7
  189.  
  190.  move.w 10(a2),d3
  191.  add.w extlen,d3
  192.  divs d3,d7    ;  d
  193.  
  194.  move.l newy,d4
  195.  sub.l oldy,d4
  196. ; beq .dontworryhit
  197.  
  198.  move.w oldx,d0
  199.  move.w oldz,d1
  200.  sub.w (a2),d0
  201.  sub.w 2(a2),d1
  202.  sub.w a4,d0
  203.  sub.w a6,d1
  204.  
  205.  muls d2,d1
  206.  muls d5,d0
  207.  sub.l d1,d0
  208.  divs d3,d0    ; otherd
  209.  
  210.  sub.w d7,d0    ; total distance travelled across wall
  211.  bgt.s .ohbugger
  212.  moveq #1,d0
  213. .ohbugger:
  214.  
  215. ; We now have ratio to multiply x,z and y differences
  216. ; by. Check y=0 since that's quite common.
  217.  
  218.  move.l d4,d1
  219.  beq.s .dontworryhit
  220.  
  221.  divs d0,d1
  222.  muls d7,d1
  223. .dontworryhit:
  224.  add.l newy,d1 ; height at point of crossing wall.
  225.  move.l d1,d6
  226.  add.l thingheight,d6
  227.  
  228.  cmp.l LowerFloorHeight,d6
  229.  bge.s .yeshit
  230.  cmp.l LowerRoofHeight,d1
  231.  bgt oknothitwall
  232.  cmp.l UpperRoofHeight,d1
  233.  blt.s .yeshit
  234.  cmp.l UpperFloorHeight,d6
  235.  blt oknothitwall
  236.  
  237. .yeshit:
  238.  
  239.  move.l d1,wallhitheight
  240.  
  241.  tst.b wallbounce
  242.  bne.s .calcbounce
  243.  
  244.  tst.b exitfirst(pc)
  245.  beq.s .calcalong
  246.  bne.s .calcwherehit
  247.  
  248. .calcbounce:
  249.  
  250. ; For simplicity (possibility!) the
  251. ; bounce routine will:
  252. ; Place the object at wall contact
  253. ; point
  254. ; Supply wall data to reflect the
  255. ; movement direction of the object
  256.  
  257.  move.w d2,wallxsize
  258.  move.w d5,wallzsize
  259.  move.w d3,walllength
  260.  
  261. .calcwherehit:
  262.  
  263. ; add.w #20,d7
  264.  move.w newx,d6
  265.  sub.w oldx,d6
  266.  muls d7,d6
  267.  divs d0,d6
  268.  add.w newx,d6
  269.  
  270.  move.w newz,d1
  271.  sub.w oldz,d1
  272.  muls d7,d1
  273.  divs d0,d1
  274.  add.w newz,d1
  275.  move.w d6,d0
  276.  move.w d1,d7
  277.  bra.s .calcedhit
  278.  
  279. .calcalong:
  280.  
  281. ; sub.w #3,d7
  282.  move.w d7,d6
  283.  muls d5,d6
  284.  muls d2,d7
  285.  divs d3,d6
  286.  divs d3,d7
  287.  neg.w d6
  288.  add.w newx,d6    ; point on wall
  289.  add.w newz,d7
  290.  
  291.  move.w d6,d0
  292.  move.w d7,d1
  293. ; bra.s othercheck
  294.  
  295. .calcedhit:
  296.  
  297.  move.w newx,d6
  298.  move.w newz,d7
  299.  sub.w oldx,d6
  300.  sub.w oldz,d7
  301.   
  302.  move.w (a2),d4
  303.  add.w a4,d4
  304.  sub.w oldx,d4
  305.  muls d4,d7; negative if on left
  306.  move.w 2(a2),d4
  307.  add.w a6,d4
  308.  sub.w oldz,d4
  309.  muls d4,d6
  310.  sub.l d6,d7
  311.  bgt oknothitwall
  312.  
  313.  move.w d0,d6
  314.  move.w d1,d7
  315.  move.w newx,d6
  316.  move.w newz,d7
  317.  sub.w oldx,d6
  318.  sub.w oldz,d7
  319.  
  320.  move.w (a2),d4
  321.  sub.w a4,d4
  322.  add.w d2,d4
  323.  sub.w oldx,d4
  324.  muls d4,d7; negative if on left
  325.  move.w 2(a2),d4
  326.  sub.w a6,d4
  327.  add.w d5,d4
  328.  sub.w oldz,d4
  329.  muls d4,d6
  330.  sub.l d6,d7
  331.  blt oknothitwall
  332.  bra hitthewall
  333.  
  334.  
  335. othercheck:
  336.  
  337. ; sub.w (a2),d6
  338. ; sub.w 2(a2),d7
  339. ; sub.w a4,d6
  340. ; sub.w a6,d7
  341. ; 
  342. ; muls d6,d6
  343. ; muls d7,d7
  344. ; add.w #5,d3
  345. ; muls d3,d3
  346. ; 
  347. ; add.l d6,d7
  348. ; cmp.l d3,d7
  349. ; bgt oknothitwall
  350. ; 
  351. ; move.w d1,d7
  352. ; move.w d0,d6
  353. ; sub.w (a2),d6
  354. ; sub.w 2(a2),d7
  355. ; sub.w d2,d6
  356. ; sub.w d5,d7
  357. ; muls d6,d6
  358. ; muls d7,d7
  359. ; add.l d6,d7
  360. ; cmp.l d3,d7
  361. ; bgt oknothitwall
  362. ; 
  363. ;************8 
  364.  
  365.  sub.w (a2),d6
  366.  sub.w 2(a2),d7
  367.  
  368.  sub.w a4,d6
  369.  sub.w a6,d7
  370.  move.w d2,d4
  371.  bge.s okplus1
  372.  neg.w d4
  373. okplus1
  374.  move.w d5,d3
  375.  bge.s okplus2
  376.  neg.w d3
  377. okplus2:
  378.  cmp.w d4,d3
  379.  bgt.s UseZ
  380.  
  381. ; Use the x coord!
  382.  
  383.  tst.w d6
  384.  bgt.s xispos
  385.  
  386.  move.w d2,d7
  387.  cmp.w #4,d7
  388.  bgt.s oknothitwall
  389.  sub.w #4,d7
  390.  cmp.w d7,d6
  391.  blt.s oknothitwall
  392.  
  393.  bra.s hitthewall
  394.  
  395. xispos:
  396.  
  397.  move.w d2,d7
  398.  cmp.w #-4,d7
  399.  blt.s oknothitwall
  400.  add.w #4,d7
  401.  cmp.w d7,d6
  402.  bgt.s oknothitwall
  403.  
  404.  bra.s hitthewall
  405.  
  406. UseZ:
  407.  tst.w d7
  408.  bgt.s zispos
  409.  
  410.  move.w d5,d6
  411.  cmp.w #4,d6
  412.  bgt.s oknothitwall
  413.  sub.w #4,d6
  414.  cmp.w d6,d7
  415.  blt.s oknothitwall
  416.  
  417.  bra.s hitthewall
  418.  
  419. zispos:
  420.  
  421.  move.w d5,d6
  422.  cmp.w #-4,d6
  423.  blt.s oknothitwall
  424.  add.w #4,d6
  425.  cmp.w d6,d7
  426.  bgt.s oknothitwall 
  427.  
  428. hitthewall:
  429.  
  430.  move.w d0,newx
  431.  move.w d1,newz
  432.  move.w wallflags(pc),d0
  433.  or.w d0,14(a2)
  434.  st hitwall
  435.  tst.b exitfirst(pc)
  436.  bne stopandleave
  437.  
  438. oknothitwall:
  439.  
  440.  bra checkwalls
  441. nomorewalls:
  442.  
  443.  tst.w extlen
  444.  beq NOOTHERWALLSNEEDED
  445.  
  446.  tst.w xdiff
  447.  bne.s notstill
  448.  tst.w zdiff
  449.  bne.s notstill
  450.  move.l objroom,a0
  451.  bra mustbeinsameroom
  452. notstill:
  453.  
  454.  move.l a5,a0
  455.  add.w ToExitList(a0),a0
  456.  
  457. checkotherwalls:
  458.  move.w (a0)+,d0
  459.  bge anotherwalls
  460.  cmp.w #-2,d0
  461.  beq nomoreotherwalls
  462.  bra checkotherwalls
  463.  
  464. anotherwalls:
  465.  
  466.  asl.w #4,d0
  467.  lea (a1,d0.w),a2
  468.  
  469. *********************************
  470. * Check if we are within exit limits
  471. * of zone.
  472. *********************************
  473.  
  474. ; tst.b 9(a2)
  475. ; bne .thisisawall2
  476.  
  477.  moveq #0,d1
  478.  move.w 8(a2),d1
  479.  blt .thisisawall2
  480.  move.l ZoneAdds,a4
  481.  move.l (a4,d1.w*4),a4
  482.  add.l LEVELDATA,a4
  483.  
  484.  move.l ToZoneFloor(a4),d1
  485.  sub.l ToZoneRoof(a4),d1
  486.  cmp.l thingheight,d1
  487.  ble .thisisawall1
  488.  
  489.  move.l newy,d0
  490.  move.l d0,d1
  491.  add.l thingheight,d1
  492.  sub.l ToZoneFloor(a4),d1
  493.  bgt.s .chkstepup
  494.  
  495.  neg.l d1
  496.  cmp.l StepDownVal,d1
  497.  blt.s .botinsidebot
  498.  bra.s .thisisawall1
  499.  
  500. .chkstepup:
  501.  
  502.  cmp.l StepUpVal,d1
  503.  blt.s .botinsidebot
  504.  
  505. ; We have a wall!
  506.  bra .thisisawall1
  507.  
  508. .botinsidebot:
  509.  
  510.  sub.l ToZoneRoof(a4),d0
  511.  blt.s .thisisawall1
  512.  
  513.  bra checkotherwalls
  514.  
  515. .thisisawall1:
  516.  
  517.  move.l ToUpperFloor(a4),d1
  518.  sub.l ToUpperRoof(a4),d1
  519.  cmp.l thingheight,d1
  520.  ble .thisisawall2
  521.  
  522.  move.l newy,d0
  523.  move.l d0,d1
  524.  add.l thingheight,d1
  525.  sub.l ToUpperFloor(a4),d1
  526.  bgt.s .chkstepup2
  527.  
  528.  neg.l d1
  529.  cmp.l StepDownVal,d1
  530.  blt.s .botinsidebot2
  531.  bra.s .thisisawall2
  532.  
  533. .chkstepup2:
  534.  
  535.  cmp.l StepUpVal,d1
  536.  blt.s .botinsidebot2
  537.  
  538. ; We have a wall!
  539.  bra .thisisawall2
  540.  
  541. .botinsidebot2:
  542.  
  543.  sub.l ToUpperRoof(a4),d0
  544.  blt.s .thisisawall2
  545.  
  546.  bra checkotherwalls
  547.  
  548. .thisisawall2:
  549.  
  550.  move.l #0,a4
  551.  move.l #0,a6
  552.  move.b awayfromwall,d3
  553.  blt.s .notomatoes
  554.  
  555.  move.b 12(a2),d2
  556.  ext.w d2
  557.  
  558.  move.b 13(a2),d4
  559.  ext.w d4
  560.  
  561.  tst.b d3
  562.  beq.s .noshift
  563.  asl.w d3,d2
  564.  asl.w d3,d4
  565. .noshift
  566.  
  567.  move.w d2,a4
  568.  move.w d4,a6
  569.  
  570. .notomatoes:
  571.  
  572.  move.w 4(a2),d2
  573.  sub.w a4,d2
  574.  sub.w a6,d2
  575.  move.w d2,DX
  576.  move.w 6(a2),d5
  577.  add.w a4,d5
  578.  sub.w a6,d5
  579.  
  580.  
  581.  move.w newx,d0
  582.  move.w newz,d1
  583.  sub.w (a2),d0
  584.  sub.w 2(a2),d1
  585.  sub.w a4,d0
  586.  sub.w a6,d1
  587.  muls DX,d1
  588.  muls d5,d0
  589.  sub.l d1,d0
  590.  bge .oknothitwall
  591.  move.l d0,d7
  592.  
  593.  move.w oldx,d1
  594.  move.w newx,d3
  595.  sub.w d1,d3
  596.  sub.w (a2),d1
  597.  sub.w a4,d1 ;e-a=d1
  598.  
  599.  move.w 2(a2),d2
  600.  add.w a6,d2
  601.  sub.w oldz,d2    ;b-f=d2
  602.  
  603.  move.w newz,d4
  604.  sub.w oldz,d4
  605.  
  606.  muls d4,d1
  607.  muls d3,d2
  608.  add.l d2,d1    ; h(e-a)+g(b-f)
  609.  
  610.  muls DX,d4
  611.  muls d5,d3
  612.  sub.l d3,d4
  613.  beq .oknothitwall
  614.  bgt.s .botpos
  615. .botneg:
  616.  tst.l d1
  617.  bgt .oknothitwall
  618.  cmp.l d1,d4
  619.  ble .mighthit
  620.  bra .oknothitwall
  621.  
  622. .botpos:
  623.  tst.l d1
  624.  blt .oknothitwall
  625.  cmp.l d1,d4
  626.  blt .oknothitwall
  627.  
  628. .mighthit:
  629.  
  630.  move.w 10(a2),d0
  631.  add.w extlen,d0
  632.  divs d0,d7    ;  d
  633.  sub.w #3,d7
  634.  move.w d7,d6
  635.  muls d5,d6
  636.  muls DX,d7
  637.  divs d0,d6
  638.  divs d0,d7
  639.  neg.w d6
  640.  add.w newx,d6    ; point on wall
  641.  add.w newz,d7
  642.  
  643.  move.w oldx,d0
  644.  move.w oldz,d1
  645.  sub.w (a2),d0
  646.  sub.w 2(a2),d1
  647.  sub.w a4,d0
  648.  sub.w a6,d1
  649.  muls DX,d1
  650.  muls d5,d0
  651.  sub.l d1,d0
  652.  blt .oknothitwall
  653.  
  654.  move.w d6,d0
  655.  move.w d7,d1
  656.  
  657.  bra .hitthewall
  658.  
  659.  sub.w (a2),d6
  660.  sub.w 2(a2),d7
  661.  move.w d6,d4
  662.  bge.s .okplus1
  663.  neg.w d4
  664. .okplus1
  665.  move.w d7,d3
  666.  bge.s .okplus2
  667.  neg.w d3
  668. .okplus2:
  669.  cmp.w d4,d3
  670.  bgt.s .UseZ
  671.  
  672. ; Use the x coord!
  673.  
  674.  tst.w d6
  675.  bgt.s .xispos
  676.  
  677.  move.w DX,d7
  678.  bgt.s .oknothitwall
  679.  cmp.w d7,d6
  680.  blt.s .oknothitwall
  681.  
  682.  bra.s .hitthewall
  683.  
  684. .xispos:
  685.  
  686.  move.w DX,d7
  687.  blt.s .oknothitwall
  688.  cmp.w d7,d6
  689.  bgt.s .oknothitwall
  690.  
  691.  bra.s .hitthewall
  692.  
  693. .UseZ:
  694.  tst.w d7
  695.  bgt.s .zispos
  696.  
  697.  move.w d5,d6
  698.  bgt.s .oknothitwall
  699.  cmp.w d6,d7
  700.  blt.s .oknothitwall
  701.  
  702.  bra.s .hitthewall
  703.  
  704. .zispos:
  705.  
  706.  move.w d5,d6
  707.  blt.s .oknothitwall
  708.  cmp.w d6,d7
  709.  bgt.s .oknothitwall
  710.  
  711.  
  712. .hitthewall:
  713.  
  714.  move.w d0,newx
  715.  move.w d1,newz
  716.  move.w wallflags(pc),d0
  717.  or.w d0,14(a2)
  718.  st hitwall
  719.  tst.b exitfirst(pc)
  720.  bne stopandleave
  721.  
  722. .oknothitwall:
  723.  
  724.  bra checkotherwalls
  725. nomoreotherwalls:
  726.  
  727. NOOTHERWALLSNEEDED
  728.  
  729.  
  730. ; move.w xdiff,d2
  731. ; muls d2,d2
  732. ; move.w zdiff,d3
  733. ; muls d3,d3
  734. ; move.w #0,movespd
  735. ; move.l #0,largespd
  736. ; add.l d3,d2
  737. ;
  738. ; move.w #31,d0
  739. ;.findhigh
  740. ; btst d0,d2
  741. ; bne .foundhigh
  742. ; dbra d0,.findhigh
  743. ;.foundhigh
  744. ; asr.w #1,d0
  745. ; clr.l d3
  746. ; bset d0,d3
  747. ; move.l d3,d0
  748. ;
  749. ; move.w d0,d3
  750. ; muls d3,d3    ; x*x
  751. ; sub.l d2,d3    ; x*x-a
  752. ; asr.l #1,d3    ; (x*x-a)/2
  753. ; divs d0,d3    ; (x*x-a)/2x
  754. ; sub.w d3,d0    ; second approx
  755. ; bgt .stillnot0
  756. ; move.w #1,d0
  757. ;.stillnot0
  758. ;
  759. ; move.w d0,d3
  760. ; muls d3,d3
  761. ; sub.l d2,d3
  762. ; asr.l #1,d3
  763. ; divs d0,d3
  764. ; sub.w d3,d0    ; second approx
  765. ; bgt .stillnot02
  766. ; move.w #1,d0
  767. ;.stillnot02
  768. ;
  769. ; move.w d0,movespd
  770. ;.moving
  771. ; ext.l d0
  772. ; asl.l #5,d0
  773. ; move.l d0,largespd
  774.  
  775. *****************************************************
  776. * FIND ROOM WE'RE STANDING IN ***********************
  777. *****************************************************
  778.  
  779.  move.l a5,a0
  780.  adda.w ToExitList(a5),a0
  781.  
  782.  move.l FloorLines,a1
  783. CheckMoreFloorLines
  784.  move.w (a0)+,d0    ; Either a floor line or -1
  785.  blt NoMoreFloorLines
  786.  asl.w #4,d0
  787.  lea (a1,d0.w),a2
  788.  
  789.  tst.w 8(a2)
  790.  blt.s CheckMoreFloorLines
  791.  
  792.  clr.b CrossIntoTop
  793.  
  794.  moveq #0,d1
  795.  move.w 8(a2),d1
  796.  move.l ZoneAdds,a4
  797.  move.l (a4,d1.w*4),a4
  798.  add.l LEVELDATA,a4
  799.  
  800.  move.l newy,d0
  801.  move.l d0,d1
  802.  add.l thingheight,d1
  803.  
  804.  sub.l ToZoneRoof(a4),d0
  805.  blt.s NOTINLOWER
  806.  
  807.  sub.l ToZoneFloor(a4),d1
  808.  blt.s okthebottom
  809.  
  810.  cmp.l StepUpVal,d1
  811.  bgt.s NOTINLOWER
  812.  
  813. ; move.l ToZoneFloor(a4),d1
  814. ; sub.l thingheight,d1
  815. ; move.l d1,newy
  816.  bra okthebottom
  817.  
  818. NOTINLOWER:
  819.  
  820.  move.l ToZoneRoof(a4),billy
  821.  move.l ToZoneRoof(a4),billy+4
  822.  add.l d0,billy+4
  823.  
  824.  st CrossIntoTop
  825.  move.l newy,d0
  826.  move.l d0,d1
  827.  add.l thingheight,d1
  828.  sub.l ToUpperRoof(a4),d0
  829.  blt CheckMoreFloorLines
  830.  
  831.  sub.l ToUpperFloor(a4),d1
  832.  blt.s okthebottom
  833.  
  834.  cmp.l StepUpVal,d1
  835.  bgt CheckMoreFloorLines
  836.  
  837. ; move.l ToUpperFloor(a4),d1
  838. ; sub.l thingheight,d1
  839. ; move.l d1,newy
  840.  
  841. okthebottom
  842.  
  843.  move.w newx,d0
  844.  move.w newz,d1
  845.  sub.w (a2),d0    ;a
  846.  sub.w 2(a2),d1    ;b
  847.  muls 4(a2),d1
  848.  muls 6(a2),d0
  849.  moveq #0,d3
  850.  move.w 8(a2),d3
  851.  move.l ZoneAdds,a3
  852.  move.l (a3,d3.w*4),a3
  853.  add.l LEVELDATA,a3
  854.  sub.l d1,d0
  855.  bge StillSameSide
  856.  
  857. * Player is now on the left side of this line.
  858. * Where was he before?
  859.  
  860. ; cmp.l a4,a5
  861. ; bne StillSameSide
  862.  
  863. ; move.w oldx,d0
  864. ; move.w oldz,d1
  865. ; sub.w (a2),d0    ;a
  866. ; sub.w 2(a2),d1    ;b
  867. ; muls 4(a2),d1
  868. ; muls 6(a2),d0
  869. ; sub.l d1,d0
  870. ; blt StillSameSide
  871. ; bra checkifcrossed
  872.  
  873. OnRightsideofline:
  874. * Player is now on the right side of the line.
  875. * Where was he last time?
  876.  
  877. ; exg a3,a4
  878.  
  879. ; cmp.l a3,a5
  880. ; bne StillSameSide
  881.  
  882. ; move.w oldx,d0
  883. ; move.w oldz,d1
  884. ; sub.w (a2),d0    ;a
  885. ; sub.w 2(a2),d1    ;b
  886. ; muls 4(a2),d1
  887. ; muls 6(a2),d0
  888. ; sub.l d1,d0
  889. ; bgt StillSameSide
  890.  
  891. checkifcrossed:
  892.  
  893. *Player used to be on other side of this line.
  894. *Need to check if he crossed it.
  895.  
  896.  move.w newx,d6
  897.  move.w newz,d7
  898.  sub.w oldx,d6
  899.  sub.w oldz,d7
  900.   
  901.  move.w (a2),d4
  902.  add.w a4,d4
  903.  sub.w oldx,d4
  904.  muls d4,d7; negative if on left
  905.  move.w 2(a2),d4
  906.  add.w a6,d4
  907.  sub.w oldz,d4
  908.  muls d4,d6
  909.  sub.l d6,d7
  910.  bgt StillSameSide
  911.  
  912.  move.w d0,d6
  913.  move.w d1,d7
  914.  move.w newx,d6
  915.  move.w newz,d7
  916.  sub.w oldx,d6
  917.  sub.w oldz,d7
  918.  
  919.  move.w (a2),d4
  920.  sub.w a4,d4
  921.  add.w d2,d4
  922.  sub.w oldx,d4
  923.  muls d4,d7; negative if on left
  924.  move.w 2(a2),d4
  925.  sub.w a6,d4
  926.  add.w d5,d4
  927.  sub.w oldz,d4
  928.  muls d4,d6
  929.  sub.l d6,d7
  930.  blt StillSameSide
  931.  
  932.  move.l a3,a5
  933.  move.l RoomPathPtr,a0
  934.  move.w (a3),(a0)+
  935.  move.l a0,RoomPathPtr
  936.  move.l a3,a0
  937.  move.b CrossIntoTop,StoodInTop
  938.  
  939.  bra gobackanddoitallagain
  940.  bra.s donefloorline
  941.  
  942. StillSameSide:
  943. donefloorline:
  944.  
  945.  bra CheckMoreFloorLines
  946. NoMoreFloorLines:
  947.  
  948.  move.l a5,a0
  949.  move.l a5,objroom
  950.  
  951. mustbeinsameroom:
  952.  
  953. stopandleave:
  954.  
  955.  move.l RoomPathPtr,a0
  956.  move.w #-1,(a0)+
  957.  
  958.  rts
  959.  
  960.  
  961. DX: dc.w 0
  962.  
  963. tstxval: dc.l 0
  964. oldx: dc.l 0
  965. oldz: dc.l 0
  966. newx: dc.l 0
  967. newz: dc.l 0
  968. xdiff: dc.l 0
  969. zdiff: dc.l 0
  970. objroom: dc.l 0
  971. hitwall: dc.b 0
  972. exitfirst: dc.b 0
  973. speed: dc.w 0
  974. wallflags: dc.w 0
  975. distaway: dc.w 0
  976. newy: dc.l 0
  977. oldy: dc.l 0
  978. thingheight: dc.l 0
  979. StepUpVal: dc.l 0
  980. StepDownVal: dc.l 0
  981. wallhitheight: dc.l 0
  982. seclot: dc.b 0
  983.  
  984.  even
  985. WALLXLEN: dc.w 0
  986. WALLZLEN: dc.w 0
  987. onwallx: dc.w 0
  988. onwallz: dc.w 0
  989. slidex: dc.w 0
  990. slidez: dc.w 0
  991. CrossIntoTop: dc.b 0
  992. StoodInTop: dc.b 0
  993. LowerFloorHeight: dc.l 0
  994. LowerRoofHeight: dc.l 0
  995. UpperFloorHeight: dc.l 0
  996. UpperRoofHeight: dc.l 0
  997.  
  998. billy: dc.l 0,0
  999.  
  1000.  even
  1001.  
  1002. HeadTowards:
  1003.  
  1004.  move.w newx,d1
  1005.  sub.w oldx,d1
  1006.  move.w d1,xdiff
  1007.  move.w newz,d2
  1008.  sub.w oldz,d2
  1009.  move.w d2,zdiff
  1010.  muls d1,d1
  1011.  muls d2,d2
  1012.  move.w #0,d0
  1013.  move.w d0,distaway
  1014.  add.l d1,d2
  1015.  beq nochange
  1016.  
  1017.  move.w #31,d0
  1018. .findhigh
  1019.  btst d0,d2
  1020.  bne .foundhigh
  1021.  dbra d0,.findhigh
  1022. .foundhigh
  1023.  asr.w #1,d0
  1024.  clr.l d3
  1025.  bset d0,d3
  1026.  move.l d3,d0
  1027.  
  1028.  move.w d0,d1
  1029.  muls d1,d1    ; x*x
  1030.  sub.l d2,d1    ; x*x-a
  1031.  asr.l #1,d1    ; (x*x-a)/2
  1032.  divs d0,d1    ; (x*x-a)/2x
  1033.  sub.w d1,d0    ; second approx
  1034.  bgt .stillnot0
  1035.  move.w #1,d0
  1036. .stillnot0
  1037.  
  1038.  move.w d0,d1
  1039.  muls d1,d1
  1040.  sub.l d2,d1
  1041.  asr.l #1,d1
  1042.  divs d0,d1
  1043.  sub.w d1,d0    ; second approx
  1044.  bgt .stillnot02
  1045.  move.w #1,d0
  1046. .stillnot02
  1047.  
  1048.  move.w d0,distaway
  1049.  
  1050. ; d0=perpdist
  1051.  
  1052.  cmp.w Range,d0
  1053.  sle GotThere
  1054.  bgt.s faraway
  1055.  
  1056.  move.w xdiff,d1
  1057.  move.w zdiff,d2
  1058.  muls Range,d1
  1059.  muls Range,d2
  1060.  divs d0,d1
  1061.  divs d0,d2
  1062.  neg.w d1
  1063.  neg.w d2
  1064.  add.w d1,newx
  1065.  add.w d2,newz
  1066.  tst.b canshove
  1067.  beq nochange
  1068.  move.w PLR1_opushx(pc),d1
  1069.  add.w PLR2_opushx(pc),d1
  1070.  sub.w d1,newx
  1071.  move.w PLR1_opushz(pc),d1
  1072.  add.w PLR2_opushz(pc),d1
  1073.  sub.w d1,newz
  1074.  move.w xdiff,d1
  1075.  move.w zdiff,d2
  1076.  move.w Range,d3
  1077.  sub.w d0,d3
  1078.  muls d3,d1
  1079.  muls d3,d2
  1080.  divs d0,d1
  1081.  divs d0,d2
  1082.  move.w d1,shovex
  1083.  move.w d2,shovez
  1084.  bra nochange
  1085.  
  1086. faraway:
  1087.  move.w speed,d3
  1088.  add.w Range,d3
  1089.  cmp.w d0,d3
  1090.  blt.s .notoofast
  1091.  move.w d0,d3
  1092.  st GotThere
  1093. .notoofast:
  1094.  sub.w Range,d3
  1095.  
  1096.  move.w xdiff,d1
  1097.  muls d3,d1
  1098.  divs d0,d1
  1099.  move.w zdiff,d2
  1100.  muls d3,d2
  1101.  divs d0,d2
  1102.  add.w oldx,d1
  1103.  move.w d1,newx
  1104.  add.w oldz,d2
  1105.  move.w d2,newz
  1106.  
  1107. nochange:
  1108.  
  1109.  rts
  1110.  
  1111.  
  1112. CalcDist:
  1113.  
  1114.  move.w newx,d1
  1115.  sub.w oldx,d1
  1116.  move.w d1,xdiff
  1117.  move.w newz,d2
  1118.  sub.w oldz,d2
  1119.  move.w d2,zdiff
  1120.  muls d1,d1
  1121.  muls d2,d2
  1122.  move.w #0,d0
  1123.  move.w d0,distaway
  1124.  add.l d1,d2
  1125.  beq .nochange
  1126.  
  1127.  move.w #31,d0
  1128. .findhigh
  1129.  btst d0,d2
  1130.  bne .foundhigh
  1131.  dbra d0,.findhigh
  1132. .foundhigh
  1133.  asr.w #1,d0
  1134.  clr.l d3
  1135.  bset d0,d3
  1136.  move.l d3,d0
  1137.  
  1138.  move.w d0,d1
  1139.  muls d1,d1    ; x*x
  1140.  sub.l d2,d1    ; x*x-a
  1141.  asr.l #1,d1    ; (x*x-a)/2
  1142.  divs d0,d1    ; (x*x-a)/2x
  1143.  sub.w d1,d0    ; second approx
  1144.  bgt .stillnot0
  1145.  move.w #1,d0
  1146. .stillnot0
  1147.  
  1148.  move.w d0,d1
  1149.  muls d1,d1
  1150.  sub.l d2,d1
  1151.  asr.l #1,d1
  1152.  divs d0,d1
  1153.  sub.w d1,d0    ; second approx
  1154.  bgt .stillnot02
  1155.  move.w #1,d0
  1156. .stillnot02
  1157.  
  1158.  move.w d0,distaway
  1159. .nochange:
  1160.  
  1161.  rts
  1162.  
  1163.  
  1164. counterer: dc.w 0
  1165. CosRet: dc.w 0
  1166. SinRet: dc.w 0
  1167.  
  1168. HeadTowardsAng:
  1169.  
  1170.  move.w newx,d1
  1171.  sub.w oldx,d1
  1172.  move.w d1,xdiff
  1173.  move.w newz,d2
  1174.  sub.w oldz,d2
  1175.  move.w d2,zdiff
  1176.  muls d1,d1
  1177.  muls d2,d2
  1178.  move.w #0,d0
  1179.  add.l d1,d2
  1180.  seq GotThere
  1181.  beq .nochange
  1182.  
  1183.  move.w #31,d0
  1184. .findhigh
  1185.  btst d0,d2
  1186.  bne .foundhigh
  1187.  dbra d0,.findhigh
  1188. .foundhigh
  1189.  asr.w #1,d0
  1190.  clr.l d3
  1191.  bset d0,d3
  1192.  move.l d3,d0
  1193.  
  1194.  move.w d0,d1
  1195.  muls d1,d1    ; x*x
  1196.  sub.l d2,d1    ; x*x-a
  1197.  asr.l #1,d1    ; (x*x-a)/2
  1198.  divs d0,d1    ; (x*x-a)/2x
  1199.  sub.w d1,d0    ; second approx
  1200.  bgt .stillnot0
  1201.  move.w #1,d0
  1202. .stillnot0
  1203.  
  1204.  move.w d0,d1
  1205.  muls d1,d1
  1206.  sub.l d2,d1
  1207.  asr.l #1,d1
  1208.  divs d0,d1
  1209.  sub.w d1,d0    ; second approx
  1210.  bgt .stillnot02
  1211.  move.w #1,d0
  1212. .stillnot02
  1213.  
  1214.  move.w d0,d1
  1215.  muls d1,d1
  1216.  sub.l d2,d1
  1217.  asr.l #1,d1
  1218.  divs d0,d1
  1219.  sub.w d1,d0    ; second approx
  1220.  bgt .stillnot03
  1221.  move.w #1,d0
  1222. .stillnot03
  1223.  
  1224.  
  1225. ; d0=perpdist
  1226.  
  1227.  cmp.w Range,d0
  1228.  sle GotThere
  1229.  bgt .faraway
  1230.  
  1231.  move.w oldx,newx
  1232.  move.w oldz,newz
  1233.  bra .nochange
  1234.  
  1235.  move.w xdiff,d1
  1236.  move.w zdiff,d2
  1237.  muls Range,d1
  1238.  muls Range,d2
  1239.  addq #3,d0
  1240.  divs d0,d1
  1241.  divs d0,d2
  1242.  subq #3,d0
  1243.  neg.w d1
  1244.  neg.w d2
  1245.  add.w d1,newx
  1246.  add.w d2,newz
  1247.  tst.b canshove
  1248.  beq .nochange
  1249.  move.w PLR1_opushx(pc),d1
  1250.  add.w PLR2_opushx(pc),d1
  1251.  sub.w d1,newx
  1252.  move.w PLR1_opushz(pc),d1
  1253.  add.w PLR2_opushz(pc),d1
  1254.  sub.w d1,newz
  1255.  move.w xdiff,d1
  1256.  move.w zdiff,d2
  1257.  move.w Range,d3
  1258.  sub.w d0,d3
  1259.  muls d3,d1
  1260.  muls d3,d2
  1261.  divs d0,d1
  1262.  divs d0,d2
  1263.  move.w d1,shovex
  1264.  move.w d2,shovez
  1265.  bra .nochange
  1266.  
  1267. .faraway:
  1268.  
  1269.  move.w speed,d3
  1270.  add.w Range,d3
  1271.  cmp.w d0,d3
  1272.  blt.s .notoofast
  1273.  move.w d0,d3
  1274.  st GotThere
  1275. .notoofast:
  1276.  sub.w Range,d3
  1277.  
  1278.  move.w xdiff,d1
  1279.  muls d3,d1
  1280.  divs d0,d1
  1281.  move.w zdiff,d2
  1282.  muls d3,d2
  1283.  divs d0,d2
  1284.  add.w oldx,d1
  1285.  move.w d1,newx
  1286.  add.w oldz,d2
  1287.  move.w d2,newz
  1288.  
  1289. .nochange:
  1290.  
  1291.  tst.w d0
  1292.  beq.s nocossin
  1293.  
  1294.  add.w #1,d0
  1295.  move.w xdiff,d1
  1296.  swap d1
  1297.  clr.w d1
  1298.  asr.l #1,d1
  1299.  divs d0,d1
  1300.  move.w d1,SinRet
  1301.  move.w zdiff,d1
  1302.  swap d1
  1303.  clr.w d1
  1304.  asr.l #1,d1
  1305.  divs d0,d1
  1306.  move.w d1,CosRet
  1307.  
  1308.  move.w SinRet,d0
  1309.  move.w #0,d2
  1310.  move.l #SineTable,a2
  1311.  lea 2048(a2),a3
  1312.  move.w #3,d5
  1313.  move.w #2048,d6
  1314. findanglop:
  1315.  
  1316.  move.w (a2,d2.w*2),d3
  1317.  move.w (a3,d2.w*2),d4
  1318.  muls d0,d4
  1319.  muls d1,d3
  1320.  sub.l d3,d4
  1321.  blt.s subang
  1322.  add.w d6,d2
  1323.  add.w d6,d2
  1324. subang:
  1325.  sub.w d6,d2
  1326.  and.w #4095,d2
  1327.  asr.w #1,d6
  1328.  dbra d5,findanglop
  1329.  add.w d2,d2
  1330.  move.w d2,AngRet
  1331.  
  1332. nocossin:
  1333.  
  1334.  rts
  1335.  
  1336. AngRet: dc.w 0
  1337. Range: dc.w 0
  1338. GotThere: dc.w 0
  1339. shovex: dc.w 0
  1340. shovez: dc.w 0
  1341. canshove: dc.w 0
  1342. PLR2_pushx: dc.l 0
  1343. PLR2_pushz: dc.l 0
  1344. PLR2_opushx: dc.l 0
  1345. PLR2_opushz: dc.l 0
  1346. PLR1_pushx: dc.l 0
  1347. PLR1_pushz: dc.l 0
  1348. PLR1_opushx: dc.l 0
  1349. PLR1_opushz: dc.l 0
  1350.  
  1351. CheckHit:
  1352.  move.w newx,d0
  1353.  sub.w oldx,d0
  1354.  move.w newz,d1
  1355.  sub.w oldz,d1
  1356.  muls d1,d1
  1357.  muls d0,d0
  1358.  add.l d0,d1
  1359.  cmp.l d2,d1
  1360.  slt hitwall
  1361.  rts
  1362.  
  1363. GetNextCPt:
  1364.  cmp.w d0,d1
  1365.  beq.s noneedforhassle
  1366.  muls #100,d0
  1367.  ext.l d1
  1368.  add.l d1,d0
  1369.  move.l a0,-(a7)
  1370.  lea ControlPts,a0
  1371.  move.b (a0,d0.w),d0
  1372.  ext.w d0
  1373.  move.l (a7)+,a0
  1374. noneedforhassle:
  1375.  rts
  1376.  
  1377. FromRoom: dc.l 0
  1378. ToRoom: dc.l 0
  1379. CanSee: dc.w 0
  1380. Facedir: dc.w 0
  1381.  
  1382.  even
  1383.  
  1384. CanItBeSeenAng:
  1385.  movem.l d0-d7/a0-a6,-(a7)
  1386.  
  1387.  move.w Facedir,d0
  1388.  move.l #SineTable,a0
  1389.  add.w d0,a0
  1390.  move.w (a0),d0
  1391.  move.w 2048(a0),d1
  1392.  move.w Targetx,d2
  1393.  sub.w Viewerx,d2
  1394.  move.w Targetz,d3
  1395.  sub.w Viewerz,d3
  1396.  muls d1,d2
  1397.  muls d0,d3
  1398.  sub.l d3,d2
  1399.  bgt.s ItMightBeSeen
  1400.  clr.b CanSee
  1401.  movem.l (a7)+,d0-a7/a0-a6
  1402.  rts
  1403. ItMightBeSeen:
  1404.  
  1405.  move.l ToRoom,a0
  1406.  move.w (a0),d0
  1407.  move.l FromRoom,a0
  1408.  adda.w #ToListOfGraph,a0
  1409.  bra.s InList
  1410.  
  1411. Viewerx: dc.l 0
  1412. Viewerz: dc.l 0
  1413. Targetx: dc.l 0
  1414. Targetz: dc.l 0
  1415. ViewerTop: dc.b 0
  1416. TargetTop: dc.b 0 
  1417. Viewery: dc.w 0
  1418. Targety: dc.w 0
  1419.  
  1420.   even
  1421.  
  1422. insameroom:
  1423.  st CanSee
  1424.  move.b ViewerTop,d0
  1425.  move.b TargetTop,d1
  1426.  eor.b d0,d1
  1427.  bne outlist
  1428.  movem.l (a7)+,d0-d7/a0-a6
  1429.  rts
  1430.  
  1431. CanItBeSeen:
  1432.  
  1433.  movem.l d0-d7/a0-a6,-(a7)
  1434.  move.l ToRoom,a1
  1435.  move.w (a1),d0
  1436.  move.l FromRoom,a0
  1437.  cmp.l a0,a1
  1438.  beq.s insameroom
  1439.  
  1440.  adda.w #ToListOfGraph,a0
  1441.  
  1442. InList:
  1443.  move.w (a0),d1
  1444.  tst.w d1
  1445.  blt outlist
  1446.  move.l ZoneGraphAdds,a1
  1447.  move.l (a1,d1.w*8),a1
  1448.  add.l LEVELGRAPHICS,a1
  1449.  
  1450.  adda.w #8,a0
  1451.  cmp.w (a1),d0
  1452.  beq isinlist
  1453.  
  1454.  bra.s InList
  1455.  
  1456. isinlist:
  1457. ; We have found the dest room in the
  1458. ; list of rooms visible from the
  1459. ; source room.
  1460.  
  1461. ; Do line of sight!
  1462.  
  1463.  st CanSee
  1464.  
  1465.  move.l Points,a2
  1466.  move.w Targetx,d1
  1467.  move.w Targetz,d2
  1468.  sub.w Viewerx,d1
  1469.  sub.w Viewerz,d2
  1470.  
  1471.  moveq #0,d3
  1472.  move.w -6(a0),d3
  1473.  blt nomorerclips
  1474.  move.l LEVELCLIPS,a1
  1475.  lea (a1,d3.l*2),a1
  1476.  move.l a1,clipstocheck
  1477. checklcliploop:
  1478.  tst.w (a1)
  1479.  blt nomorelclips
  1480.  
  1481.  move.w (a1),d0
  1482.  blt.s noleftone
  1483.  move.l (a2,d0.w*4),d3
  1484.  move.w d3,d4
  1485.  sub.w Viewerz,d4
  1486.  swap d3
  1487.  sub.w Viewerx,d3
  1488.  muls d2,d3
  1489.  muls d1,d4
  1490.  sub.l d3,d4
  1491.  ble outlist
  1492.  
  1493. noleftone:
  1494.  
  1495.  addq #2,a1
  1496.  
  1497.  bra checklcliploop
  1498.  
  1499. nomorelclips:
  1500.  
  1501.  addq #2,a1
  1502.  
  1503. checkrcliploop:
  1504.  tst.w (a1)
  1505.  blt nomorerclips
  1506.  
  1507.  move.w (a1),d0
  1508.  blt.s norightone
  1509.  move.l (a2,d0.w*4),d3
  1510.  move.w d3,d4
  1511.  sub.w Viewerz,d4
  1512.  swap d3
  1513.  sub.w Viewerx,d3
  1514.  muls d2,d3
  1515.  muls d1,d4
  1516.  sub.l d3,d4
  1517.  bge outlist
  1518.  
  1519. norightone:
  1520.  addq #2,a1
  1521.  
  1522.  bra checkrcliploop
  1523.  
  1524.  
  1525. nomorerclips:
  1526.  
  1527. ; No clipping points in the way; got to do the
  1528. ; vertical working out now.
  1529.  
  1530.  move.w Targetx,d0
  1531.  move.w Targetz,d1
  1532.  sub.w Viewerx,d0
  1533.  sub.w Viewerz,d1
  1534.  move.l FromRoom,a5
  1535.  move.l FloorLines,a1
  1536.  move.b ViewerTop,d2
  1537.  move.w Targety,d7
  1538.  sub.w Viewery,d7
  1539.  
  1540.  
  1541. GoThroughZones:
  1542.  move.l a5,a0
  1543.  adda.w ToExitList(a0),a0
  1544.  
  1545. FindWayOut:
  1546.  move.w (a0)+,d5
  1547.  blt outlist
  1548.  asl.w #4,d5
  1549.  lea (a1,d5.w),a2
  1550.  
  1551.  move.w (a2),d3
  1552.  move.w 2(a2),d4
  1553.  sub.w Viewerx,d3
  1554.  sub.w Viewerz,d4
  1555.  move.w d3,d5
  1556.  move.w d4,d6
  1557.  muls d1,d3
  1558.  muls d0,d4
  1559.  sub.l d3,d4
  1560.  ble FindWayOut
  1561.  
  1562.  add.w 4(a2),d5
  1563.  add.w 6(a2),d6
  1564.  muls d0,d6
  1565.  muls d1,d5
  1566.  sub.l d5,d6
  1567.  bge FindWayOut
  1568.  
  1569.  tst.w 8(a2)
  1570.  blt outlist
  1571.  
  1572. ; Here is the exit from the room. Calculate the height at which
  1573. ; we meet it.
  1574.  
  1575.  move.w Targetx,d3
  1576.  move.w Targetz,d4
  1577.  sub.w (a2),d3
  1578.  sub.w 2(a2),d4
  1579.  muls 4(a2),d4
  1580.  muls 6(a2),d3
  1581.  sub.l d3,d4    ; positive
  1582.  
  1583.  move.w Viewerx,d5
  1584.  move.w Viewerz,d6
  1585.  sub.w (a2),d5
  1586.  sub.w 2(a2),d6
  1587.  muls 4(a2),d6
  1588.  muls 6(a2),d5
  1589.  sub.l d6,d5    ; positive
  1590.  
  1591.  divs 10(a2),d4
  1592.  divs 10(a2),d5
  1593.  
  1594.  add.w d5,d4
  1595.  beq.s sameheight
  1596.  muls d7,d5
  1597.  divs d4,d5
  1598. sameheight:
  1599.  add.w Viewery,d5    ; height at which we cross wall
  1600.  
  1601.  ext.l d5
  1602.  asl.l #7,d5
  1603.  
  1604.  tst.b d2
  1605.  beq.s comparewithbottom
  1606.  
  1607.  cmp.l ToUpperRoof(a5),d5
  1608.  blt outlist
  1609.  cmp.l ToUpperFloor(a5),d5
  1610.  bgt outlist
  1611.  bra.s madeit
  1612.  
  1613. comparewithbottom:
  1614.  cmp.l ToZoneRoof(a5),d5
  1615.  blt outlist
  1616.  cmp.l ToZoneFloor(a5),d5
  1617.  bgt outlist
  1618. madeit:
  1619.  st donessomething
  1620.  
  1621.  moveq #0,d3
  1622.  move.w 8(a2),d3
  1623.  move.l ZoneAdds,a3
  1624.  move.l (a3,d3.w*4),a5
  1625.  add.l LEVELDATA,a5
  1626.  
  1627.  clr.b d2
  1628.  cmp.l ToZoneFloor(a5),d5
  1629.  bgt outlist
  1630.  cmp.l ToZoneRoof(a5),d5
  1631.  bgt.s GotIn
  1632.  st d2
  1633.  cmp.l ToUpperFloor(a5),d5
  1634.  bgt outlist
  1635.  cmp.l ToUpperRoof(a5),d5
  1636.  blt outlist
  1637.  
  1638. GotIn:
  1639.  
  1640.  cmp.l ToRoom,a5
  1641.  bne GoThroughZones
  1642.  
  1643.  move.b TargetTop,d3
  1644.  eor.b d2,d3
  1645.  bne outlist
  1646.  
  1647.  movem.l (a7)+,d0-d7/a0-a6
  1648.  rts
  1649.  
  1650. clipstocheck: dc.l 0
  1651. donessomething: dc.w 0
  1652.  
  1653. outlist:
  1654.  clr.b CanSee
  1655.  movem.l (a7)+,d0-d7/a0-a6
  1656.  rts
  1657.  
  1658.  
  1659. FindCollisionPt:
  1660.  movem.l d0-a7/a0-a6,-(a7)
  1661.  
  1662.  move.w Targetx,d0
  1663.  move.w Targetz,d1
  1664.  sub.w Viewerx,d0
  1665.  sub.w Viewerz,d1
  1666.  move.l FromRoom,a5
  1667.  move.l FloorLines,a1
  1668.  move.b ViewerTop,d2
  1669.  move.w Targety,d7
  1670.  sub.w Viewery,d7
  1671.  
  1672.  
  1673. .GoThroughZones:
  1674.  move.l a5,a0
  1675.  adda.w ToExitList(a0),a0
  1676.  
  1677. .FindWayOut:
  1678.  move.w (a0)+,d5
  1679.  blt outlist
  1680.  asl.w #4,d5
  1681.  lea (a1,d5.w),a2
  1682.  
  1683.  move.w (a2),d3
  1684.  move.w 2(a2),d4
  1685.  sub.w Viewerx,d3
  1686.  sub.w Viewerz,d4
  1687.  move.w d3,d5
  1688.  move.w d4,d6
  1689.  muls d1,d3
  1690.  muls d0,d4
  1691.  sub.l d3,d4
  1692.  ble .FindWayOut
  1693.  
  1694.  add.w 4(a2),d5
  1695.  add.w 6(a2),d6
  1696.  muls d0,d6
  1697.  muls d1,d5
  1698.  sub.l d5,d6
  1699.  bge .FindWayOut
  1700.  
  1701.  
  1702. ; Here is the exit from the room. Calculate the height at which
  1703. ; we meet it.
  1704.  
  1705.  move.w Targetx,d3
  1706.  move.w Targetz,d4
  1707.  sub.w (a2),d3
  1708.  sub.w 2(a2),d4
  1709.  muls 4(a2),d4
  1710.  muls 6(a2),d3
  1711.  sub.l d3,d4    ; positive
  1712.  
  1713.  move.w Viewerx,d5
  1714.  move.w Viewerz,d6
  1715.  sub.w (a2),d5
  1716.  sub.w 2(a2),d6
  1717.  muls 4(a2),d6
  1718.  muls 6(a2),d5
  1719.  sub.l d6,d5    ; positive
  1720.  
  1721.  divs 10(a2),d4
  1722.  divs 10(a2),d5
  1723.  
  1724.  move.w d5,d6
  1725.  add.w d5,d4
  1726.  beq.s .sameheight
  1727.  muls d7,d5
  1728.  divs d4,d5
  1729. .sameheight:
  1730.  add.w Viewery,d5    ; height at which we cross wall
  1731.  
  1732.  ext.l d5
  1733.  asl.l #7,d5
  1734.  
  1735.  moveq #0,d3
  1736.  move.w 8(a2),d3
  1737.  blt foundpt
  1738.  move.l ZoneAdds,a3
  1739.  move.l (a3,d3.w*4),a5
  1740.  add.l LEVELDATA,a5
  1741.  
  1742.  clr.b d2
  1743.  cmp.l ToZoneFloor(a5),d5
  1744.  bgt foundpt
  1745.  cmp.l ToZoneRoof(a5),d5
  1746.  bgt.s .GotIn
  1747.  st d2
  1748.  cmp.l ToUpperFloor(a5),d5
  1749.  bgt foundpt
  1750.  cmp.l ToUpperRoof(a5),d5
  1751.  blt foundpt
  1752.  
  1753. .GotIn:
  1754.  
  1755.  bra .GoThroughZones
  1756.  
  1757.  tst.w d4
  1758.  beq.s foundpt
  1759.  muls d6,d0
  1760.  divs d4,d0
  1761.  muls d6,d1
  1762.  divs d4,d1
  1763.  add.w Viewerx,d0
  1764.  add.w Viewerz,d1
  1765.  move.w d0,Targetx
  1766.  move.w d1,Targetz
  1767.  move.l d5,Targety
  1768.  
  1769. foundpt:
  1770.  
  1771.  movem.l (a7)+,d0-a7/a0-a6
  1772.  rts
  1773.  
  1774. GetRand:
  1775.  move.w Rand1,d0
  1776.  add.w #29,d0
  1777.  eor.w #$5f37,d0
  1778.  neg.w d0
  1779.  rol.w #5,d0
  1780.  move.w d0,Rand1
  1781.  rts
  1782.  
  1783. Rand1: dc.w 234
  1784.  
  1785. GoInDirection:
  1786.  move.l #SineTable,a0
  1787.  lea (a0,d0.w),a0
  1788.  move.w (a0),d1
  1789.  move.w 2048(a0),d2
  1790.  muls speed,d1
  1791.  add.l d1,d1
  1792.  muls speed,d2
  1793.  add.l d2,d2
  1794.  swap d1
  1795.  swap d2
  1796.  add.w oldx,d1
  1797.  add.w oldz,d2
  1798.  move.w d1,newx
  1799.  move.w d2,newz
  1800.  rts
  1801.  
  1802. CollideFlags: dc.l 0
  1803.  
  1804. Collision:
  1805.  
  1806.  move.l ObjectData,a0
  1807.  move.w CollId,d0
  1808.  asl.w #6,d0
  1809.  move.b 16(a0,d0.w),d0
  1810.  ext.w d0
  1811.  
  1812.  sub.w #64,a0
  1813.  move.l ObjectPoints,a1
  1814.  move.l #ColBoxTable,a2
  1815.  lea  (a2,d0.w*8),a3
  1816.  
  1817.  move.l CollideFlags,d7
  1818.  move.b StoodInTop,d6
  1819.  move.l newy,d4
  1820.  move.l d4,d5
  1821.  add.l thingheight,d5
  1822.  asr.l #7,d4
  1823.  asr.l #7,d5
  1824.  clr.b hitwall
  1825.  
  1826. checkcol:
  1827.  add.w #64,a0
  1828.  
  1829.  move.w (a0),d0
  1830.  blt checkedallcol
  1831.  
  1832.  cmp.w CollId,d0
  1833.  beq.s checkcol
  1834.  
  1835.  tst.w 12(a0)
  1836.  blt.s checkcol
  1837.  
  1838.  tst.b numlives(a0)
  1839.  beq.s checkcol
  1840.  
  1841.  move.b ObjInTop(a0),d1
  1842.  eor.b d6,d1
  1843.  bne checkcol
  1844.  
  1845.  moveq #0,d3
  1846.  move.b 16(a0),d3
  1847.  blt checkcol
  1848.  
  1849.  btst d3,d7
  1850.  beq checkcol
  1851.  
  1852.  move.w 4(a0),d1
  1853.  sub.w 2(a2,d3.w*8),d1
  1854.  cmp.w d1,d5
  1855.  blt checkcol
  1856.  add.w 4(a2,d3.w*8),d1
  1857.  cmp.w d1,d4
  1858.  bgt checkcol
  1859.  
  1860.  move.w (a1,d0.w*8),d1
  1861.  move.w 4(a1,d0.w*8),d2
  1862.  sub.w newx,d1
  1863.  bge.s .xnoneg
  1864.  neg.w d1
  1865. .xnoneg:
  1866.  sub.w newz,d2
  1867.  bge.s .znoneg
  1868.  neg.w d2
  1869. .znoneg:
  1870.  cmp.w d1,d2
  1871.  ble.s .checkx
  1872.  sub.w (a3),d2
  1873.  cmp.w (a2,d3.w*8),d2
  1874.  bgt checkcol
  1875.  st hitwall
  1876.  bra checkedallcol
  1877. .checkx:
  1878.  sub.w (a3),d1
  1879.  cmp.w (a2,d3.w*8),d1
  1880.  bgt checkcol
  1881.  
  1882.  move.w (a1,d0.w*8),d1
  1883.  move.w 4(a1,d0.w*8),d2
  1884.  move.w d1,d6
  1885.  move.w d2,d7
  1886.  sub.w newx,d6
  1887.  sub.w newz,d7
  1888.  muls d6,d6
  1889.  muls d7,d7
  1890.  add.l d6,d7
  1891.  sub.w oldx,d1
  1892.  sub.w oldz,d2
  1893.  muls d1,d1
  1894.  muls d2,d2
  1895.  add.l d1,d2
  1896.  cmp.l d2,d7
  1897.  bgt checkcol
  1898.  
  1899.  st hitwall
  1900.  bra checkedallcol
  1901.  
  1902. ; bra checkcol
  1903.  
  1904. checkedallcol:
  1905.  rts
  1906.  
  1907. ColBoxTable:
  1908.  
  1909. ; red scurrying alien
  1910.  dc.w 40,60,120,0
  1911. ; Medipack
  1912.  dc.w 40,20,40,0
  1913. ; Bullet
  1914.  dc.w 40,20,40,0
  1915. ; Gun
  1916.  dc.w 40,20,40,0
  1917. ; Key
  1918.  dc.w 40,20,40,0
  1919. ; PLayer1
  1920.  dc.w 40,40,80,0
  1921. ;Robot
  1922.  dc.w 40,50,100,0
  1923. ;?
  1924.  dc.w 40,20,40,0
  1925. ; Flying Nasty
  1926.  dc.w 80,60,120,0
  1927. ; Ammo
  1928.  dc.w 40,20,40,0
  1929. ; Barrel
  1930.  dc.w 40,30,60,0
  1931. ;PlAYER2
  1932.  dc.w 40,40,80,0
  1933. ; Mutant Marine
  1934.  dc.w 40,40,80,0
  1935. ; worm
  1936.  dc.w 80,60,120,0
  1937. ; huge red thing
  1938.  dc.w 160,100,200,0
  1939. ; small red thing
  1940.  dc.w 80,50,100,0
  1941. ; tree
  1942.  dc.w 80,60,120,0
  1943. ; eyeball
  1944.  dc.w 40,30,60,0
  1945. ; Tough Marine
  1946.  dc.w 40,40,80,0
  1947. ; ShotGun Marine
  1948.  dc.w 40,40,80,0
  1949.  
  1950. FromZone: dc.w 0
  1951. OKTEL: dc.w 0
  1952. floortemp: dc.l 0
  1953.  
  1954. CheckTeleport:
  1955.  clr.b OKTEL
  1956.  move.w FromZone,d0
  1957.  move.l ZoneAdds,a2
  1958.  move.l (a2,d0.w*4),a2
  1959.  add.l LEVELDATA,a2
  1960.  tst.w ToTelZone(a2)
  1961.  bge.s ITSATEL
  1962.  rts
  1963.  
  1964. ITSATEL:
  1965.  move.l ToZoneFloor(a2),floortemp
  1966.  move.w ToTelZone(a2),d0
  1967.  move.l ZoneAdds,a3
  1968.  move.l (a3,d0.w*4),a3
  1969.  add.l LEVELDATA,a3
  1970.  move.l ToZoneFloor(a3),d0
  1971.  sub.l floortemp,d0
  1972.  move.l d0,floortemp
  1973.  add.l d0,newy 
  1974.  move.w ToTelX(a2),newx
  1975.  move.w ToTelZ(a2),newz
  1976.  move.l #%1111111111111111111,CollideFlags
  1977.  movem.l a0/a1/a2,-(a7)
  1978.  bsr Collision
  1979.  movem.l (a7)+,a0/a1/a2
  1980.  
  1981.  move.l floortemp,d0
  1982.  sub.l d0,newy
  1983.  
  1984.  tst.b hitwall
  1985.  seq OKTEL
  1986.  beq.s .teleport
  1987.  rts
  1988. .teleport:
  1989.  move.w ToTelZone(a2),d0
  1990.  move.l ZoneAdds,a2
  1991.  move.l (a2,d0.w*4),a2
  1992.  add.l LEVELDATA,a2
  1993.  move.l a2,objroom
  1994.  
  1995.  rts
  1996.  
  1997. FindCloseRoom:
  1998.  ; d0 is distance.
  1999.  
  2000.  move.w 4(a0),d1
  2001.  ext.l d1
  2002.  asl.l #7,d1
  2003.  move.l d1,oldy
  2004.  move.l d1,newy
  2005.  
  2006.  move.w (a0),d1
  2007.  move.l ObjectPoints,a1
  2008.  lea (a1,d1.w*8),a1
  2009.  move.w (a1),oldx 
  2010.  move.w 4(a1),oldz
  2011.  
  2012.  move.w 12(a0),d2
  2013.  move.l ZoneAdds,a5
  2014.  move.l (a5,d2.w*4),d2
  2015.  add.l LEVELDATA,d2
  2016.  move.l d2,objroom
  2017.  
  2018.  move.w THISPLRxoff,newx
  2019.  move.w THISPLRzoff,newz
  2020.  move.w d0,speed
  2021.  movem.l a0/a1,-(a7)
  2022.  jsr HeadTowards
  2023.  movem.l (a7)+,a0/a1
  2024.  
  2025.  move.w newx,d0
  2026.  sub.w oldx,d0
  2027.  move.w oldz,d1
  2028.  sub.w newz,d1
  2029.  
  2030.  move.w d1,xd
  2031.  move.w d0,zd
  2032.  
  2033.  move.l #100000,StepUpVal
  2034.  move.l #100000,StepDownVal
  2035.  move.w #0,thingheight
  2036.  
  2037.  st exitfirst
  2038.  
  2039.  add.w oldx,d1
  2040.  add.w oldz,d0
  2041.  move.w d1,newx
  2042.  move.w d0,newz
  2043.  movem.l d0-d7/a0-a6,-(a7)
  2044.  jsr MoveObject
  2045.  movem.l (a7)+,d0-d7/a0-a6
  2046.  
  2047.  move.l #RoomPath,a2
  2048.  move.l #possclose,a3
  2049.  move.w 12(a0),(a3)+
  2050.  
  2051. putinmore:
  2052.  move.w (a2)+,(a3)+
  2053.  bge.s putinmore
  2054.  subq #2,a3
  2055.  
  2056.  move.w oldx,d0
  2057.  sub.w xd,d0
  2058.  move.w oldz,d1
  2059.  sub.w zd,d1
  2060.  move.w d0,newx
  2061.  move.w d1,newz    
  2062.  
  2063.  movem.l d0-d7/a0-a6,-(a7)
  2064.  jsr MoveObject
  2065.  movem.l (a7)+,d0-d7/a0-a6
  2066.  
  2067.  move.l #RoomPath,a2
  2068.  
  2069. putinmore2:
  2070.  move.w (a2)+,d0
  2071.  move.w d0,(a3)+
  2072.  tst.w d0
  2073.  bge.s putinmore2
  2074.  
  2075. ; ok a3 points at list of rooms passed through.
  2076.  move.w #-1,(a3)+
  2077.  
  2078.  
  2079.  move.w 12(a0),d7
  2080.  
  2081.  move.l endoflist,a3
  2082. FINDCLOSELOOP:
  2083.  move.l #possclose,a2
  2084.  move.w -(a3),d0
  2085.  blt foundclose
  2086.  
  2087. findinner
  2088.  move.w (a2)+,d1
  2089.  blt.s outin
  2090.  cmp.w d0,d1
  2091.  bne.s findinner
  2092.  move.w d0,d7
  2093. outin:
  2094.  
  2095.  bra.s FINDCLOSELOOP
  2096.  
  2097. foundclose:
  2098.  
  2099.  move.w d7,GraphicRoom(a0)
  2100.  
  2101.  rts
  2102.  
  2103. xd: dc.w 0
  2104. zd: dc.w 0
  2105.  
  2106. possclose:
  2107.  ds.w 100